home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / AmigaE / Src / Tools / EasyGUI / Examples / testqual.e < prev    next >
Encoding:
Text File  |  1997-02-13  |  397 b   |  15 lines
  1. MODULE 'tools/easygui', 'devices/inputevent'
  2.  
  3. PROC main()
  4.   easyguiA('Qualifier Test',
  5.           [SBUTTON,{buttonaction},'Press Me! (With/Without Shift)'])
  6. ENDPROC
  7.  
  8. PROC buttonaction(qual,data,info)
  9.   IF qual AND (IEQUALIFIER_LSHIFT OR IEQUALIFIER_RSHIFT)
  10.     PrintF('You were pressing a shift key when you clicked on me!\n')
  11.   ELSE
  12.     PrintF('Nope, no shift key this time...\n')
  13.   ENDIF
  14. ENDPROC
  15.